home *** CD-ROM | disk | FTP | other *** search
Null Bytes Alternating | 1997-01-09 | 2.2 KB | 29 lines |
- '++LotusScript Development Environment:2:5:(Options):0:66
-
- '++LotusScript Development Environment:2:5:(Forward):0:1
- Declare Sub Click(Source As Button, X As Long, Y As Long, Flags As Long)
-
- '++LotusScript Development Environment:2:5:(Declarations):0:2
-
- '++LotusScript Development Environment:2:2:BindEvents:1:129
- Private Sub BindEvents(Byval Objectname_ As String)
- Static Source As BUTTON
- Set Source = Bind(Objectname_)
- On Event Click From Source Call Click
- End Sub
-
- '++LotusScript Development Environment:2:2:Click:1:12
- Sub Click(Source As Button, X As Long, Y As Long, Flags As Long)
- ' Click event for the btnRefresh button on the Schedule Display view
- ' This script clears reservation information from the view and redisplays
- ' information from the reservation database for the date displayed in
- ' the top left text box.
-
- ' Clears reservation information from the view
- Call clearDisplay()
-
- ' Reads reservation info from the schedule database and
- ' puts that information on the view
- Call readBlock (source.fbxDateDisplay.text)
-
- End Sub ' Click event for the btnRefresh button on the Schedule Display view